RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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MODULE ififne ( DENT = 'V04-000' 
BLISS32L, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE 
i NONEXTERNAL = LONG-RELATIVES] 


BEGIN 


APSE A LILI STITT ITT E PETTITT Trt iri itr i titi tii tii iii ti tititititiiity 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
1* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
® 
® 
® 
® 
am 
® 
* 
ie TRANSFERRED. . 
® 
® 
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® 
® 
® 
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AROOWDNAMUE WN O ODNAUES UR “OOONA NEW" OVDONOU 


is phe a ye IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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MOOD NAMVEWN (OO ODNOAUES WN SO OODNOAUES WN OOONOUSWN— 
2 2 9 9 tO 
* 


1 
1 
1 
1 
1 
1 
1 
1 
1 
! 2 
02 ie OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
90¢ is CORPORATION. 
i® 
0G '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
09 i SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. 
i 
§ 8p PIELER LE EM ES Se) AT TN ai 
J 
3 80 i+¢ 
005 i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
003 ABSTRACT: 
Ons Processes the .IF, .IFNOT, .ELSE, .ENDIF, and .VARIABLE commands. 
; 005 ENVIRONMENT: Transportable 
; 005 AUTHOR: R.W. Friday CREATION DATE: yune, 1978 
4 004 : 
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Revision History 12=860-1382 99.0654 ANNO SAELIE FNEZBL Sf sets (28 
SBTTL ‘Revision History’ 
MODIFIED BY: 
005 REROOOOS Ron Randall 07-Mar-1983 


ten | edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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IF IFN 18-5 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 3 1 
Vv N50 Module Level Declarations et 7 90:36 ‘43 RUNOFF .SR RCJIFIFNE_BLI: . (3) Vv 
; ¢ ; ZSBTTL ‘Module Level Declarations’ : 
. ' : 
: 3 3 { TABLE OF CONTENTS: 
: § ° $ FORWARD ROUTINE : 
: rs 3 IF TENE : NOVALUE, : 
; 6¢ 826 VRENTR : NOVALUE, ; 
c”* € 061 VRF IND; 3 
; 64 006¢ ; 
i 66 0064 | INCLUDE FILES: ; 
: 68 06 LIBRARY 'NXPORT:XPORT"; ! XPORT Library : 
; 4 BY i REQUIRE "REQ:RNODEF'; ' RUNOFF variant definitions : 
: 71 U 0199 1 RIF DSRPLUS XTHEN : 
: re U 0 00 LIBRARY REQ:DPLLIB': ! DSRPLUS BLISS Library : 
CS 0 0¢ LIBRARY 'REQ:DSRLIB';: ! DSR BLISS Library : 
>: 75 020 FI : : 
oe RB : 
: 28 0 06 EXTERNAL REFERENCES: ; 
: 80 0808 EXTERNAL LITERAL F 
; 81 0 09 RINTES : UNSIGNED (8); : 
: 8 0 11. 1 EXTERNAL : 
: B4 1 FSO1 : FIXED_STRING, ; 
> «85 021 GCA : GCA_DEFINITION, ; 
: 86 0214 IFSTK : IFSTACK ; 
; «87 0215 IRA : FIXED_STRING ; 
; «688 0216 IRAC : IRACTDEFINITION, ; 
aE age fy em : 
; 91 ty EXTERNAL See VR.REQ for definition of items. F 
; 4 ose VRCNT 'Number of variables. 3 
> 9 0221 VRNAME : VRNAME_DEF, iThe variable names. 

en) Oes¢ VRLNG : VRLNG_DE 'The Length of the names. 

> 95 ; VRBOOL : VRBOOL_DEF, iTRUE/FALSE value 

; 96 0224 VRFFLG VRFELG- DEF. i FALSE {ta ag 

: 97 02 7 VRTFLG : VRTFLG DEF, i TRUE lag 

; 4 § VRSRC : ‘ vneRe OEP: Dee Me of variable definition. 

; 100 6 8 EXTERNAL LITERAL ‘Error messages 

> 101 0 RNFBVN, 

: 108 0 RNF DVN, 

> 10 1 RNFEVL, 

$ H+ § RNF INI, 

> 105 RNFITD, 

; 10 4 RNF SKC: 

: 108 6 EXTERNAL ROUTINE 

+ 109 ERMA 

+ 110 8 GNAME , 


M11 
yo4-000 Module Level Declarations 12-860-1382 99:66:28 RUNOFFCSRETIFTFNE OL fe a (33 


; 33) 39 «1 RSKIPS, 
3 \1¢ 40 1 SKPSEP; 
co 1 
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Module Level Declarations 12-8601 382 99:6648 RUNOFF SRETIFIFNE BL t24 wt (63 


GLOBAL ROUTINE IFIFNE (HANDLER_CODE) : NOVALUE = 
1+ 


i FUNCTIONAL DESCRIPTION: 
See ABSTRACT, above. 
FORMAL PARAMETERS: 
HANDLER_CODE indicates which command is to be processed. 


48 
4s 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 

COMPLETION CODES: None 


SIDE EFFECTS: 
Swallows a portion of the uneaten string. 


BEGIN 

LOCAL 
GNAME_RESULT, 
VR_INDEX, ‘Will be used to point into the variables tables 
x; ‘Just a copy of the IFSTACK depth 

RSKIPS (IRA); Position to variable name. 


GNAME_RESULT = GNAME (IRA, FSO1); 
IF .GNAME_RESULT NEQ GNAME_NORMAL 
THEN 
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BEGIN 
op weet cage TRUE); 'Skip to end of command and output message 


SELECT .HANDLER_CODE OF 
SET 


CH_IF, H_IFNOT) : 
~ BEGIN 


1090909 69 C909 09 SINISE ID DPA AA AAI 


'See if this variable exists alre 
VR_INDEX = VRFIND (.FS_START (FSO 


IF .VR_INDEX EQL -1 
BEGIN 'Unrecognized variable. 
IF .VRCNT EQL MAX_VR_NAMES 
THEN 


ady. 
1), .FS_LENGTH (FS01)); 


POPIPIPOPIPIPIPIPINONIPIPIPIPOPIPIPIPIPONIPUNDIPIPUPIPINIPIPIPIPIPIPIPIPUPUPIPUPIPIPIPIPIPIPIPINYD 


O00 0000 


BEGIN 
ERMA (RNFEVL, FALSE); 
RETURN; 
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; 17 99 4 

: 138 4 ‘Allocate a new spot and put this stuff {as 

: 174 4 VRENTR (.FS_START (FSO1), .FS_LENGTH (FSO1), %C° ", %C° ", 1, FALSE); 

: 1f? ¢ 4 —, = .VRCNT; 

: 193 04 : 

; 178 ? X = .IFSTK CO, IFSTK_DEPTH) + 1; 

; 180 6 oF dE yek GTR IFSTK_SIZE 

: 186 09 4 I !,IFs nested too deeply ; 
3 13 10 4 ERMA (RNFITD, FALSE) ; 
-: 2 | ; 
: 186 031 ; s { 
: 187 0314 ‘Remember how the .IF/.IFNOT was started. 

; 188 0315 iF STK 0, IFSTK_DEPTH] = .X; 'Save new stack depth. 

: 189 0316 IFSTK C.X, IFSTR ~SOURCED = «HANDLER CODE; 'Remember command. 

: 190 0317 IFSTK C.X, IFSTK-VR) = .VR_ iND iSave pointer to variable name entry 

s 91 0318 IFSTK C.X, IFSTK- ~REQ_DJ = [GCA REQ DEPTH; ‘Remember .REQUIRE depth. : 
; 19 0319 IFSTK C.X, IFSTK_ ~TPAGEN] | = .IRAC IPAGEN; iRemember input Line a OE : 
; 19 bass IFSTK L.X, IFSTK_ fete = ,IRAC_TSE : 
3 19% 0321 IFSTK C.X, IFSTK-FLAG) = .IRAC DRAFT “its: ‘Remember /DRAFT s : 
: 132 0398 IFSTK C.X, IFSTK- ~BOOL = .VRBOOL C -VR_ INDEX]; 'Remember TRUE/FALSE "gettine. ; 
: 197 0324 'In a /DRAFT soeupent set all variables FALSE ay 
BB Hen ret 

; 200 0327 3 FST [.X, "IFSTK.po0L3 = FALSE; 

; g0¢ £359 ; IF sHANDLER_CODE EQL H.IFNOT 

: 204 te 3 IFSTK C.X, IFSTK_BOOL] = NOT .IFSTK C.X, IFSTK _BOOL); 

: $03 $338 3 'The TRUE/FALSE value "tevel, must include the TOverEm Se 

s 207 0334 3 ‘value * the FkeBOOL] = Love ree take nested .IF's into 

; 208 Beez IFSTK C.X, IFSTK_BOOL C.x- 1, IF STK BOOLJ AND CoRSTK C.X, IFSTK_BOOL); 

: 209 0336 jormett skippin of <a. rete commands is determined solely 

; 210 0337 pee e Logica ue just _senputed. However, in a DRAFT document, 

: $i) 0338 ippin never taken lac 

3 \¢ tie GCA IPPING = NOT .IF Tk f: X, IFSTK_BOOLJ; 

: 214 0341 IF .GCA_DEBUG_CND 

: 15 O48 THEN 

: 16 4 GCA_SKIPPING = FALSE; 

: 27 Beet 

3 18 $02 END; 

; 220 0347 (HIF : 

3 1 48 BEGIN 

3 g 349 IFSTK C.X, IFSTK_ELSE team = “YRFFLS C.VR_INDEX); 

; 330 IRAC_DRAFT_FLG =". VRTFLG C.VR_INDEX); 

: 3 2) END; 

: 6 26 CH_IFNOT) : 

; 54 BEGIN 

2 8 55 IRAC_DRAFT_FLG = .VRFFLG C.VR_INDEX); 


ee ~----— Qe 


oa 
w 


'Pick up gepropriete /DRAFT fla 


sp cata LG = .IFSTK C.X, IF STk_ELSE_FLG); 


& 


CH_ENDIF) : 
IFSTK_DEPTH] - 1; 


WISSE SS SRAR AAA 


X = .IFSTK CO 
IFSTK CO, IFSTK_DEPTA) = .X; 


IF _  .GCA_DEBUG_CND 
THEN 


SOOONOULSWN -O0Oen 
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IF IF 1b-5¢ 1984 00:44:4 AX-11 Bliss-32 V4.0-74 Page 
V N60 Module Level Declarations 1 ~300n 138% 90:66:63 FRUNOFF SRE TFTFNE {OL 144 . 
3 8 _ IFSTK C.X, IFSTK_ELSE_FLG] = .VRTFLG C.VR_INDEX]; 
; 231 ; 
; ¢ § CH_ELSE, H_ENDIF) : 
3 60 N ‘Variable must match one on stack. 
3 : 2 X = .IFSTK CO, IFSTK_DEPTHI; 
5 : 8 IF CHSNEQ (.FS_LENGTH (FS01), 
: 64 -FS_START (FSO1), 
: 8 65 VRING C.IFSTK Pt IFSTK_VRJJ 
; 33 66 CHSPTR (VRNAME C.IfSTK C.8, IFSTK_VRI, 0, 0, 0, 02)) 
: 241 304 4 BEGIN !'Improperly nested, etc 
: seg 8 4 4 ERMA (RNFINI, FALSE); 
H 4 0 4 RETURN; 
5 see 0 4 ND; !,ELSE and .ENDIF must appear in same file as .1F/.IFNOT 
: 246 bare IF_ .IFSTK C.X, IFSTK_REQ_D] NEQ .GCA_REQ_DEPTH 
; set Bare THEN 
; 248 0375 ERMA (RNFSKC, FALSE); 
: 249 Bee 
3 $29 037 END; 
: 251 ba78 
3 $26 0379 CH_ELSE) : 
s 2 0380 BEGIN 
> 254 0381 '"X" gets set in the error eneck ing block, above. 
3 $2? Bees IFSTK C.X, IFSTK_BOOLJ = ( NOT .IFSTK C.X, IFSTK_BOOLJ) AND .IFSTK C.X = 1, IFSTK_BOOLI; 
s 237 4 IF .GCA_DEBUG_CND 
: 258 5 THEN 
3 59 6 !If a /DRAFT document, don't skip. 
; rs : GCA_SKIPPING = FALSE 
; o¢ i i GCA_SKIPPING = NOT (.IFSTK C.X, IFSTK_BOOL] AND .IFSTK C.X = 1, IFSTK_BOOL)); 
3 ; ; 
s £6 4 

; (2 5 

; oe 6 

; eT 7 

; af 8 

» 2b 9 

s af 0 

, ar 401 

ae 402 4 BEGIN 

3 27 403 4 GCA_SKIPPING = FALSE; 

: 27 404 4 END 

:° 2P 405 3 ELSE 

3; 27 4 $ 4 BEGIN 

; 28 407 4 

: 81 408 4 IF .X EQL 0 

3 a6 409 4 H 

; 28 aiy 2 a gn EPID = FALSE ! No more active .IFs 

: BS 412 4 GCA_SKIPPING = NOT (.IFSTK C.X, IFSTK_BOOL] AND .IFSTK C.X = 1, IFSTK_BOOL)); 
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me eo 

: 8 415 : 

; £18 ‘Restore interrupted /DRAFT flag 

: 90 4) 'Note that we have already popped the stack, one so need to 
; 291 213 ‘Look back in the stack. (The data's 434} valid though). 
; 3 419 IRAC_DRAFT _FLG = .IFSTK C.X+1, IFSTK_FLAGJ; 

: 294 0421 Tes; | 

; 295 04 § 

; 296 04 END; 'End of IFIFNE 


TITLE LELENE 
[IDENT \V04-000\ 

.EXTRN RINTES, FSO1, GCA 
“EXTRN IFSTK, IRA, [RAC 
-EXTRN KHAR, VRCNT, VRNAM 
SEXTRN VRLNG, VRBOOL, VRFFLG 
“EXTRN VRTFLG, VRSRC. RNFBVN 


. KC, ERMA 
«EXTRN GNAME, RSKIPS, SKPSEP 
-PSECT S$CODES,NOWRT,2 


5B 000000006 EF 9€ 00002 MOVAB VRCNT, R11 
5A 000000006 EF 9E 00009 MOVAB IRAC+24, R10 
59 000000006 EF 9E 00010 MOVAB R 
58 000000006 EF 9€ 00017 MOVAB GCA+156, R8 
57 000000006 EF 9E OO01E OVAB IFSTK, R7 
000000006 EF 9F 000 PUSHAB 
00000000G_ EF 01 FB 000 8 CALLS #1, RSKIPS 
59 DD 000 PUSHL R9 
000000006 EF 9F 000 PUSHAB 
000000006 EF 08 FB O003A CALLS #2, GNAME 
01 50 01 00041 CMPL § GNAME_RESULT, #1 
0A 13 00044 BEQL «i$ 
oi ) 0046 PUSHL #1 
000000006 8F DD 00048 PUSHL #RNFBVN 
67 11 4F BRB 
56 04 AC dO 00050 1$: MOVL §-HANDLER_CODE, R6 
00000065 FF 56 D1 00054 CMPL = R6, -#I10T 
03 18 0098 BGEQG }430s«3$ 
ooct 31 0005 gs: BRW 10$ 
00000066 = &F 56 01 060 $: CMPL R6, #102 
F4 14 06 BGTR 2$ 
9 AJ DD 9 PUSHL FSO01+12 
9 DD 0006C PUSHL F501 
00000000v EE FB 6 CALLS #2, VRFIND 
2 D MOVL RO, VR_INDEX 
FFFFFFFF aF »} 7 CMPL YRAINDEX, #-1 
: é 7F BNEO $ 
14 B OD 81 CMPL VRCNT, #20 


OFFC 00000 ~-ENTRY IFIFNE, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,- 
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IF IFN 18-56 1984 00:44:4 AX-11 Bliss-32 V4.0=-74 Page 9 
104.080 Module Level Declarations 1 mae Fi 90:36:48 ERUNOFF SRE IFIFNE.BLI; 9 a) 
QA 12 4 BNEQ ; ; 
E D CLRL =(SP) + 0296 ; 
000000006 f 00 4S ae #RNFEVL : ; 
7E 1 7D 4$: MOVQ = #1, -=(SP) + 0301 ; 
0 Dd 0009 PUSHL # : ; 
9 DD 0009 PUSHL # : ; 
0c Ad DD 0009 PUSHL FS01+12 : ; 
69 DD 0009A PUSHL : : 
00000000v EE 6 FB 26 CALLS #6, VRENTR : : 
3 68 D A MOVL. VRCNT, VR_INDEX : 030 ; 
54 6 Q C1 SONG 5$ ADDL3 #1, JESTK; K : 030 ; 
OA 4 D1 OOOAA CMPL =e, #10 + 0307 ; 
ve 15 QOOAD BLEG = 7$ : ; 
E D4 OOOAF CLRL  =(SP) + 0310 : 
000000006 _ 8F pp 90081 PUSHL #RNFITD : ; 
OOgE 1 00087 6$ BRW 14$ : F 
67 4 00 OO0BA 7$ MOVL XX, IFSTK + 0315 ; 
50 54 05 00BD ASHL §. x, 0 + 0316 ; 
Oc A740 9F 000C1 PUSHAB IFSTK+12CROJ : F 
9E 56 DO 000C5 MOVL 6, at : : 
04 A740 9F 000C8 PUSHAB IFSTK+4(RO] : 0317 ; 
9E 58 DO 000CC MOVL VR_INDEX, a(SP)+ : ; 
10 A740 9F OOOCE PUSHAB IFSTK+16CR0J ; 0318 : 
9E 20 AB DO 90003 MOVL GCA+188, a(SP)+ : : 
14 A740 9F 00007 PUSHAB IFSTK+20CROJ + 0319 ; 
9E F4 AA DO 60008 MOVL IRAC+12, a(SP)+ : : 
18 A740 9F OOODF PUSHAB IFSTK+24(RO) : 0320 3 
9E FO AA DO OOES MOVL IRAC+8, a(SP) : ; 
1C A740 9F OO0E PUSHAB IFSTK+28L + 0321 : 
9E DO 000EB MOVL IRAC#24, a(SP)+ : ; 
50 08 A749 i SOEs MOVAB IFSTK+8CROJ, RO : 0322 ; 
60 O0000000GEF42 00 O00F MOVL | VRBOOLCVR_INDEX], (RO) : : 
02 D8 AB 08 E1 OO00FB BBC #2, GCA+1T6, 8$ : 0325 ; 
: D4 90190 CLRL = (RO) : 0327 ; 
00000066 = &F 36 D1 90102 aS cmPL R6, #102 ; 0329 ; 
60 60 03 90108 MCOML (RO), (RO) : 0331 : 
55 54 05 O10 9$: ASHL R5 > 0335 ; 
E8 A745 OF ort PUSHAB IF STK-24(R5) ; ; 
51 9E D2 00116 MCOML a(SP)+, R1 F ; 
60 51 CA 00119 BICL2 Ri, (RO) ; : 
51 60 D2 0011C MCOML §=.: (RO) ,._ RD : 0339 ; 
6e 01 0 1 FO OO11F INSV. R1, #O, #1, GCA+156 ; ; 
03 b8 oA é ; 124 BB #2. GCA+116, 10$ > 0341 ; 
68 A 00129 BICB2 #1. GCA+156 : 0 43 ; 
00000065 8F 36 DI 108: CPL RG, #101 ; 034 : 
55 54 03 8 1 HL = so#S,, X, RS : 0349 ; 
9€ odd005bcer42 bb 9013p ae? 
6A itd GEF4 b6 145 MOVL VRTFLG YRTINDEX * TRAC#24 ; 0350 F 
00000066 = BF 3 p 140 11$: CMPL RG, a! ; 035 ; 
= gA 00000000GEF 4 06 136 MOVIL VRFFLGCVR INDEX, TRAC +24 0355 : 
20 ars oF 105 PUSHAB IF STK+32CR5) ; : 


yor Oi i9953¢ eB ale 
RUNOFF .SRCJIFIFNE.BLI; 
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0424 1 


Routine Base: 


4 
SCODES + 0000 


i 
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9 
C 238: 


Sep-1 
1p-te ~Sep-1 


980 19:06:68 


INSV pH 
MULL2 # 
PUSHAB IF 
MOVL ac 
RET 


2 
§ 
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fk+ 
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AX=11 Bliss-32 v4 
RUNOFF .SRCJIFIFNE 


#0, #1, GCA+156 
YA 


60CR4] 
» TRAC+24 


NE“OLIs4 


H 12 

IF IFN 16-Sep-1984 00:44:4 AX-11 Bliss-32 V4.0-74 Page 12 

¥04-000 Module Level Declarations 1e-88b-198e 13:06:28 — FRUNOFFSRESIFGFNE OL; 9 655 

; 99 r 5 } GLOBAL ROUTINE VR (HANDLER_CODE) : NOVALUE = ; 
; 0} 159 | 14s ; 
H 4 1 ! FUNCTIONAL DESCRIPTION: : 
; 4 1} : 
; Be : , : FORMAL PARAMETERS: : 
: 4 oe § } HANDLER_CODE is never checked by this routine. : 
; 308 Q434 1 | IMPLICIT INPUTS: None 
: 310 436 1 { IMPLICIT OUTPUTS: — None 
5 11 4 77 : 
i $e 0438 1 | ROUTINE VALUE: 
; 17 eke : COMPLETION CODES: None ; 
: 319 Bea 1 | SIDE EFFECTS: : 
; 317 b6e§ 1) Swallows a part of the uneaten string. : 
ay abe : 
; 320 0446 BEGIN 
; $i 0447 LOCAL : 
3 0448 VR_INDEX, 'Index in VRxxxx where variable goes. : 
3 355 0449 ¢ HOCD_T_FLAG, 'Temporary location of TRUE flag : 
: 324 0450 HOLD F_FLAG !'Temporary location of FALSE flag : 
; 335 0491 GNAME_RESULT; : 
: 327 488 RSKIPS (IRA); ‘Position to name : 
: $6 Bee GNAME_ RESULT = GNAME (IRA, FS01); 'Get name : 
; % 0456 IF .GNAME_RESULT NEQ GNAME_NORMAL 3 
i 330 ree THEN BEGIN ; 
: a 0459 ERMA (RNFBVN, TRUE); 'Skip to end of command and issue message : 
> 334 0460 RETURN; : 
; 35 pee) END; : 
F 8 ee: HOLD_T_FLAG = &%C° '; 'Default TRUE/FALSE flags : 
; 338 0464 HOLD-F-FLAG = XC" '; : 
3 ip Bee SKPSEP™ (IRA); 'Skip spaces,tabs, and a comma before the flags. : 
: 341 467 'The two flags are given as C(x) [.,] Cyl) : 
: ri} 298 ‘Note that a single character is always taken as the TRUE flag. : 
3 rb 0490 'The input ‘',y'’ can be used to specify the FALSE flag alone. : 
i $43 421 IF, sKHAR NEQ RINTES : 
; é} ar BEGIN ‘There might be TRUE/FALSE flags supplied. : 
i $49 479 IF KHAR NEQ XC", ; 
i 331 ane a BEGIN 'pick up the TRUE flag ; 
: 26 rh 4 HOLD_T_FLAG = .KHAR; : 
s 3 479 & N : 'Get character after the flag : 
3 «6354 rt + 4 RSKIPS (IRA); 'Skip spaces and tabs : 
3; 335 481 3 END; : 
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Module Level Declarations RUNOFF .SRC NE .BLI; 


3 4 

3 4 g IF .KHAR EQL %C',' 

3 484 THEN 

3 485 BEG] 

: 4 $ 4 KCNS (); 'Get character after the comma 

; 4 RSKIPS (IRA); 

3 re 3 END; 

3 4 IF .KHAR NEQ RINTES 

; 491 THEN 

3 138 4 BEGIN 'Get FALSE flag 

3 495 4 HOLD_F_FLAG = .KHAR; 

: 494 4 KCNS” (J; 'Position past KHAR. 

3 0495 END; 

3 ret 

3 hts END; 

; rh VR_INDEX = VRFIND (.FS_START (FSO1), .FS_LENGTH (FS01)); 

; 0501 IF .VR_INDEX EQL =1 

; b208 THEN 

3 B20? BEGIN 'It's a new entry 

; 379 0505 IF .VRCNT EQL MAX_VR_NAMES 

; 380 8208 THEN 

s 381 0507 4 BEGIN ‘Table would overflow if this were added!!!!! 
: fi 0508 4 ERMA (RNFEVL, FALSE); 

; 0509 4 RETURN; 

: «384 510 END; 

3 3a 511 

; 386 a6 ‘Allocate a new spot and put this stuff in. 

; 87 051 VRENTR (.FS_START (FSO1), .FS_LENGTH (FSO1), .HOLD_T_FLAG, .HOLD_F_FLAG, 1, FALSE); 
; 388 0514 3 END 

$ 89 Bete ELSE 

3 +s 8218 BEGIN 'It's probably an entry made via /VARIANT. 
3 334 0518 IF .VRSRC C.VR_INDEX] EQ) 1 

3 $9 0519 THEN 

3 394 0520 4 BEGIN 'This is duplicate declaration!!!! 
3; 395 0521 4 ERMA (RNFDVN, FALSE); 

: 396 05 ¢ 4 RETURN; 

: 35 0854 

; 399 03 5 VRSRC C.VR_INDEX] = 1; "1°" means from a .IF or .VARIABLE command. 
: 400 5 6 VRTFLG £.VR_INDEX) = ‘HOLD_T_FLAG;: iSave TRUE flag 

; 401 5 VRFFLG C.VR_INDEX) = .HOLD_F_FLAG; 'Save FALSE flag 

: $08 528 END; 

; 40 529 

; 404 530 END; ‘End of VR 


O7FC 4 -ENTRY VR, Save R2,R3,R4,R5,R6,R7,R8,R9,R10 3: 0425 
5A 000000006 cf 3 09 0 MOVAB VRSRC, R10 ; 
9 G 8F 9A 0000 MOVZBL M#RINTES, RO : 
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4 
: “11 Bliss-32 V4.0-74 Page 
1b-5¢ $071 3be 90: 66:4 RUNOFF’ SRE IF IFNE.BLI; 3) 
if rabO Module Level Declarations eal Sia Ps, rs i 
L Seatitine EF eRe Bowne FEET eg ; : 
G EF } VAB_ -IRA+12, R5 : 0453 é 
3 see PUSHAB : 
re Oh Pe o008C CALLS #1, RSKIPS : 0454 ; 
| 6 BEB Re Me 
ALLS #2, GNAM ; 04 ; 
000000006 Ff of cRpL GNAME RESULT, #1 Pinte : 
B 1 1 : ; 
bP Bebe PUSHL —#RNFBVN : 
ta eg wel [3 
aE rare Me): 
Fo AS OF o03) CALLS In SKPSEP ; 0471 ; 
000000006 FF 66 00 0058 MOVE Kain ; ; 
59 BEQL ‘ : 0475 : 
B Is Roget RO, #44 ; ; 
8) 1 000 CMPL , 
™ le 13 00066 MOVE RO, HOLD_T_FLAG : Ors : 
54 BS 00068 TSTL RA+i2 ; : : 
14 00060 BGTR KHA 
. Ra ; : 
66 F8 85 9A 0007 MOVZBL @1RAS 
Fe 88 OF ooore DECL  —‘IRA+12 : 0480 : 
* & Foe CALLS. Ais RSKIPS : 0483 ; 
68 01 FB 00085 KHAR, #44 ; 
ae a a joes) 
12 ° : 
65 05 00088 TSTL om : ; 
8 14 0008p +1 Bf KHAR : : 
66 y oh MNEGL #1, IRA+12 
” : ii 0095 BRB $ aot, Caan : : 
66 F8 BS 9A 00097 5$ woypee Fineeee ; : 
7 8 8 00% DECL | IRA+12 : 0487 : 
Fo OAS OF 0 i “ CALLS” Ai, RSKIPS : 0490 : 
68 és 4 N78: CPL KHAR, R9 ae : 
18 1 ° A HAR, HOLD_F_FLAG 0494 3 
53 98 BD BHM TstL TRAS2 ; 
14 0008 R9, KHAR : : 
66 ' ce : RNEGL #1, IRA+12 ; 
8 ! : 
) TRA+4, KHAR 
66 FB 85 9A QOOBA BS: —AOVZBL_ @IRAt ; 
Fe 8 DF dood! DECL —_—IRA#12 


K 12 
IF LEN 16-Sep-1984 00:44:4 AX-11 Bliss-32 V4.0-74 P 
404-080 Module Level Declarations 1exeen}3Re 98:68:es | HAMA Obies Tze, Me -Or74 age 
AF Bb Ganee pu ag? : 
00000000v EF F C CALL #2, VREIND : 
D CF MOVL ; VR_INDEX : 
FFFFFFFF © BF : Og cMPL R_INDEX, #1 : 
14 000000006 EF : D CMPL VRCNT, #20 ; 
t D te ant Oep) ‘ 
000000006 8F Dp £6 PUSHL #RNFEVL : 
2 1 EC BRB les : 
7E } 7D 0 EE 10$: MOVa #1, =(SP) : 
DD OOOF PUSHL HOLD_F_FLAG ; 
4 DD OOF PUSHL HOLD ~T~FLAG : 
OC AZ OD 000F PUSHL FSO 712 ; 
67 DD OO0F PUSHL F501 : 
00000000V_ EF 06 fe OOFA CALLS #6, VRENTR : 
01 643 D1 6} 11$: CMPL VRSRCCVR_INDEX], #1 : 
10 12 001 BNEG 138 ; 
7E 04 0010 CLRL = = (SP) ; 
00000000G 8F ODD 10A PUSHL #RNFDVN : 
000000006 EF 02 FB 119 12$: CALLS #2, ERMA : 
6A4 01 D0 Sia 13$:  MOVL #1, VRSRCCVR_INDEX] : 
QOO00000GEF 4 4 p00 0011C MOVL HOLD_T_FLAG, VRTFLGCVR_INDEXJ r 
OOO00000GEF 4 53 BO 00124 MOVL HOLD-F-FLAG, VRFFLGLVR-INDEX] ; 
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IF IFN 1bese -1984 00:44:4 AX-11 Bliss-32 V4.0-74 Pp 1 INDI 
vad Module Level Declarations 12-8 08-1obe 906643 RUNOFF .SRCJIFIFNE-BLI: a (6S V04- 
; 407 § GLOBAL ROUTINE VRFIND (PTR, LNGTH) = ; | 
: 40 4 1 t+ a4 
; 410 5 | FUNCTIONAL DESCRIPTION: ; 
; rt 2 § ! ! Returns the index to the name, if found. otherwise, returns -1. 3 : 
it: 335 1 | FORMAL PARAMETERS: ; 
3 218 b2¢3 1 ; PTR is a ch$ptr to a name to be located; LNGTH is its Length ; 
3 218 0348 } IMPLICIT INPUTS: None F 
i 420 0545 1 | IMPLICIT OUTPUTS: None a, 
i: é 0347 1 | ROUTINE VALUE: 24 
; 4 ; 0948 i COMPLETION CODES: None % 
: 425 0550 1! SIDE EFFECTS: None 4 
eo wai 9 
: 428 bee§ BEGIN ; 4 
; 429 0554 ‘In the loop, I starts at 1 even though there is a Oth element. :. 4 
: re 3232 'This is because the Oth one is a dummy. : 
; 43¢ 0889 INCR I FROM 1 TO .VRCNT DO : 4 
os men § 
> 435 0560 IF .VRLNG C.J] EQL .LNGTH | 
- a ‘ 
i 438 0568 If /CHSEGL (.LNGTH, .PTR, .LNGTH, CHSPTR (VRNAME [.1, 0, 0, 0, 03)) 3; 
: 440 0565 ; RETURN .I; ‘Variable found | 
3; 441 0566 gs 4 
: bh 0567 2 END; | 
> 44 0568 | 
3 444 0569 2 RETURN -1; ‘Variable not found | 
3: «6445 0570 1 END; 'End of VRFIND : 
s d 
3 4 
3 4 
001¢ 00000 .ENTRY VRFIND, Save R2,R3,R4 ; 0582 : 
54 D4 00002 CLRL : 056 aia 
20 11 00004 BRB $ ; : 
08 AC OOOOD000GEF44 D1 00006 1$ CMPL - VRLNGCIJ, LNGTH ; aaa 
15 iF O00F BNEQ $ ; al 
50 54 04 7 1 ASHL. #4, I, RO : 0563 . 4 
00000000GEF 40 04 BC 08 Ac #9 1 CMPC3 LNGTH, @PTR, VRNAMECRO) ; 4 
9 3 BNEQ $ - 3 1 
50 4 pO MOVL I, RO : 0565 2 
D8 54 000000006 FF F3 6 2$ AOBLEQ VRCNT, I, 1$ : 0557 : 
0 1 ce 7 MNEGL #1, RO : 9 69 ot 
1 RET 3 70 Te | 
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; Routine Size: 


IF IF 


; Routine Size: 75 bytes, Routine Base: S$CODE$ + O3AC 


N 12 
IF IFN 16-Sep-1984 44:4 AX-11 Bliss-32 V4.0-74 P 

Vv O60 Module Level Declarations 12: et 7 90:06:08 RUNOFF .SRCJIFIFNE.BLI; sag 8 
: tts ie } GLOBAL ROUTINE VRENTR (VARIABLE, VARIABLE_LNG, TRUE_FLAG, FALSE_FLAG, SOURCE_FLAG, LOGICAL_VALUE) : NOVALUE : i 
; 430 74 1 14 ; | 
; t2) 2? : FUNCTIONAL DESCRIPTION: : 
; 188 rs 1 i VRENTR saves a variable in the variable tables, along with ; 
: tee 4 ! associated lnterastion. - 
; 496 $i FORMAL PARAMETERS: ; 
: 458 05 ¢ 1 ee is a CHSPTR to the variable name. VARIABLE_LNG is its Length. : i 
; 459 28 1} E_FLAG and FALSE_FLAG are the two draft flags. . 
; re 4 : : ! SOURTE FLAG” indicatés whether the def nities came from a command : i 
; 186 0386 i LOGICAL_VALUE is the TRUE/FALSE setting of the variable. ; 
; 464 0988 1 { IMPLICIT INPUTS: None | 
: 466 0590 1 { IMPLICIT OUTPUTS: None | 
: 468 059¢ 1 ' ROUTINE VALUE: = 4 
: rs Beez : COMPLETION CODES: None : : 
; 47 0595 is SIDE EFFECTS: None : 
: 138 0597 1 : 
3; 476 0598 BEGIN | 
s 675 0599 VRCNT = .VRCNT + 1; ‘Allocate a new slot . ; 
: rth Bene CHSMOVE (. VARIABLE _LNG, iMove variable name _ wie the slot. ; i 
: 478 060 CHSPTR (VRNAME C.VRCNT, 0, 0, 0, 03)); | 
: 479 0603 2 VRLNG C,VRCNT] = .VARIABLE_LNG; ‘Save Length of name. a | 
: 480 0604 2 VRBOOL E.VRCNT) | = gh Osten VALUE: 'Save TRUE/FALSE value. a 5 
; 481 0605 2 VRSRC C.VRCNT) = E FLAG ‘Remember how variable got defined. al 
; 48 0606 2 VRTFLG Reet = iit 'Save TRUE flag 3 4 
; 48 0607 2 VRFFLG C.VRCNTJ = -FALSE_ awe 'Save FALSE flag -. 9 
: 0608 1 ND; 'End of VRENTR : 
: 
; 
. ‘ 
OOFC 00000 .ENTRY VRENTR, Save R2,R3,R4,R5,R6,Ri : 0572 ; 
57 000000006 EF 9E p06 MOVAB VRENT, R7 3 -_ 3 
67 06 0000 INCL N ; 05 > 4 
56 7 8 0008 MOVL VRENT R6 ; 0602 4 
50 56 4 ie ASHL : mS 
OOOOO000GEF 40 04 BC 08 AC 28 0001 mMOVC3 VA IABLE UNG. eat bay 4 VRNAMECROJ 3 4 
OOOQ0000GEF 46 98 AC D0 00010 MOVL VA RIABLE, LNG 3 0603 = 
O0000000GEF 46 18 AC D6 00 6 MOVL LOGICAL. QALUE, Pa R6) > 0604 4 
B08 88 GEF 46 14 AC 00 Q002F MOVL SOURCE LPL AG vRsRe R 3; 0605 > 
00 GEF 46 0c AC DO 000 MOVL TRUE _FCAG Coatrie R6 ; 0606 a 
OOOOO000GEF 46 10 AC 00 bond) MOVL FALSE. FLAG, VRFFLGCR6) : 0607 g ¢ 
04 0004A RET ; 0608 : 
t 
5 


SiFteNecoc 104 


ow 


eee ceed 1$-Seo-t9te Ops44:45  yaxtt aL 


el0 1 END 
Oot 0 ELUDOM End of module 


PSECT SUMMARY 
Name Bytes Attributes 


SCODES 1015 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


~—e- anne Symbols -o------ Pages Processing 
File Total Loaded Percent Mapped Time 
seouagss SYSLIBIJXPORT.L32;1 590 0 252 00:00. 
S$DUA28: Ate SRCIDSRLIB.L32;1 1248 45 : 86 00:00. 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$: IF IFNE/OBJ=OBJ$:IF IFNE MSRC$:IF IFNE/UPDATE=(ENHS$: IF IFNE) 
1015 coge + 0 data bytes 


Elap ne Maes 00:35. 
Lines/CPU Min: 4 $5 
erg AR fag 181 


Used: 144 pages 
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